home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / alfredo's pp (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  70 lines
  1. 4 poke53281,1:poke53280,1
  2. 5 ifx=0thenx=1:load"alf.spr",8,1
  3. 6 li$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  4. 7 poke169,1:poke170,2
  5. 10 printchr$(142)"[147][146]      [144]alfredo's pitiful pitfall"
  6. 20 print
  7. 30 print" written by alan gardner, james weiler,"
  8. 40 print"           and val golding"
  9. 50 print
  10. 60 print"   copyright 1987, dispute?s gazelle"
  11. 70 print"                                 [166][166]"
  12. 80 print"                                 [166][166]"
  13. 90 print"[160]     [160]                      N[163][163][163][166][166][163][163][163][163][163]";
  14. 100 print"                            N"
  15. 110 print"                           N"
  16. 120 print"                          N"
  17. 130 print"                         N{$60}{$60}[178]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  18. 140 print"                            B"
  19. 150 print"                            B        [176]{$60}{$60}";
  20. 160 print"                            B        [171]{$60}{$60}";
  21. 170 print"                     [176]CCCC[174] B        [173]{$60}{$60}";
  22. 180 print"                     Bpush[171] [179]"
  23. 190 print"                     Bme. B B   [176]{$60}{$60}[174]"
  24. 200 print"                     [173]{$60}[178][178]C[189] B   B  B"
  25. 210 print"                       BB   B   B QB"
  26. 220 print"CCCCCCCCCCCCCCCCCCCCCCC[177][177]CCC[177]CCC[177]CC[177]CCCC";
  27. 230 print
  28. 240 print
  29. 250 print"";
  30. 255 forl=217to242:pokel,128orpeek(l):next
  31. 260 :
  32. 300 v=53248:pokev+39,0:pokev+16,0:pokev+29,0:pokev+23,0:pokev+28,0
  33. 310 pokev,24+7:pokev+1,203:poke2040,192
  34. 320 pokev+21,1:fordl=1to1200:next
  35. 330 :
  36. 340 forc1=7+24to128+24step4:pokev+1,203
  37. 350 pokev,c1:poke2040,194:::rem   fordl=1to20:next
  38. 360 pokev,c1+1:poke2040,195:remfordl=1to20:next
  39. 370 pokev,c1+2:poke2040,196:remfordl=1to20:next
  40. 380 pokev,c1+3:poke2040,195:remfordl=1to20:next
  41. 390 poke54296,15:poke54296,0
  42. 400 next
  43. 410 :
  44. 420 poke2040,194
  45. 430 :
  46. 440 print"";
  47. 450 d$="[192][192][192][192][192]"
  48. 460 printd$;"[157][157][157][157][157]";:forx=1to5
  49. 470 d$=left$(d$,5-x)
  50. 480 iflen(d$)<5thend$=d$+" ":goto480
  51. 490 printd$;"[157][157][157][157][157]";:nextx
  52. 500 print"[174]   [176]"
  53. 510 printspc(15)"[194]   [194]"
  54. 520 printspc(15)"[194]   [194]"
  55. 530 printspc(15)"[194]   [194]";
  56. 540 :
  57. 550 poke2040,193:forx=203to230:pokev+1,x:next
  58. 560 :
  59. 570 print"";
  60. 580 ifrnd(1)<.1thena=rnd(1)*5:b=rnd(1)*5+2:printspc(a)left$(li$,b);:goto600
  61. 590 ifrnd(1)>.9thena=rnd(1)*5+20:b=rnd(1)*5+2:printspc(a)left$(li$,b);
  62. 600 print""spc(15)"[194]   [194]":print
  63. 610 ifpeek(198)=0then570
  64. 620 :
  65. 630 pokev+21,0
  66. 632 poke56,160:clr
  67. 635 print"[147]    returning to dispute?'s gazelle..."
  68. 640 print"load"chr$(34)"dispute*"chr$(34)",8:":print"run:"
  69. 642 poke631,13:poke632,13:poke198,2:end
  70.